Top 10k strings from FP 50 Forth (1983)(Mike Hampson).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 N#F#^#V##~
   3 a$=a$+"     "
   2 "''"and from the graphics cursor:   
   1 ~#^#V#N#F#
   1 z=z+((a$+" ")(z+1
   1 while,r-while-1
   1 routines  
   1 forget words
   1 else,r-else-1
   1 data      
   1 ajF#N#V#^#~
   1 a$=a$+n$(1
   1 a$="proff"
   1 a$="mc byte:":
   1 a$="WHILE"
   1 a$="UNTIL"
   1 a$="REPEAT"
   1 a$="Name Word:":
   1 a$="Forget ":
   1 a$="File Name:":
   1 a$="Enter character to redefine:":
   1 a$="BEGIN"
   1 a$="***>":
   1 a$="       ........                 Line "+
   1 a$(x);"+":
   1 SPECTRUM FLOATING-POINT FORTH isbased on FORTH-79 with additionsfor FLOATING-POINT arithmetic.  
   1 FP50 FORTH
   1 ABCDEFG          
   1 ;"SPECTRUM"
   1 ;"From the main keyboard:          !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
   1 ;"FLOATING-POINT"
   1 ,begin-r+254
   1 ,begin-r+251
   1 +"Continue definition:":
   1 *e\w#s#r#q#p#"e\
   1 *(a$="s")-1000
   1 *(a$="d")+3000
   1 *(a$=":")+2000
   1 )+"not known.":
   1 (a$+" ")(z+1
   1 ''"Stack:";(32717
   1 '"Word not found.":
   1 '"Word already used.":
   1 '"Tape OK.":
   1 '"Still loading - please wait.":
   1 '"New definition of CHR$ ";c
   1 "routines"
   1 "Please play back to verify.":
   1 "From the main keyboard:          !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
   1 "Forgotten:";a$
   1 "Compiling - please wait."
   1  MIKE HAMPSON (May 1983)."
   1  Copyright May 1983 M Hampson."
   1  Copying of this program is      illegal except for storage of   the purchaser's own FORTH       words exclusively for his own   use."